home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / chrstmas.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  3.7 KB  |  137 lines
  1. 100  'CHRISTMAS CHEER 1983
  2. 110  'BY LYNN LONG
  3. 120  'TULSA RBBS
  4. 130  '918-749-0718
  5. 140  CLS
  6. 150  KEY OFF
  7. 160  LOCATE 9,20:PRINT CHR$(201);STRING$(38,205);CHR$(187)
  8. 170  FOR X=10 TO 16
  9. 180  LOCATE X,20:PRINT CHR$(186);
  10. 190  LOCATE X,59:PRINT CHR$(186);
  11. 195  NEXT
  12. 197  LOCATE X,20
  13. 200  PRINT CHR$(200);STRING$(38,205);CHR$(188)
  14. 210  LOCATE 12,30
  15. 220  PRINT "CHRISTMAS CHEER 1983"
  16. 230  LOCATE 13,34
  17. 240  PRINT"BY LYNN LONG"
  18. 250  LOCATE 14,35
  19. 260  PRINT"TULSA RBBS"
  20. 270  LOCATE 15,34
  21. 280  PRINT "918-749-0718"
  22. 290  FOR X=1 TO 3000:NEXT
  23. 295  CLS
  24. 296  RESTORE
  25. 300  LOCATE 5,15
  26. 310  PRINT CHR$(201);STRING$(48,205);CHR$(187)
  27. 320  FOR X=6 TO 18
  28. 330  LOCATE X,15
  29. 340  PRINT CHR$(186);
  30. 350  LOCATE X,64
  31. 360  PRINT CHR$(186)
  32. 370  NEXT
  33. 380  LOCATE X,15:PRINT CHR$(200);STRING$(48,205);CHR$(188)
  34. 390  LOCATE 7,22
  35. 400  PRINT"1)  THE TWELVE DAYS OF CHRISTMAS"
  36. 410  LOCATE 8,22:PRINT "2)  JOY TO THE WORLD"
  37. 420  LOCATE 9,22:PRINT "3)  O LITTLE TOWN OF BETHLEHEM"
  38. 430  LOCATE 10,22:PRINT"4)  SILENT NIGHT"
  39. 440  LOCATE 11,22:PRINT"5)  I HEARD THE BELLS ON XMAS DAY"
  40. 450  LOCATE 12,22:PRINT"6)  OH COME ALL YE FAITHFUL"
  41. 460  LOCATE 13,22:PRINT"7)  OH CHRISTMAS TREE"
  42. 470  LOCATE 14,22:PRINT"8)  WE THREE KINGS"
  43. 480  LOCATE 15,22:PRINT"9)  JINGLE BELLS"
  44. 490  LOCATE 16,21:PRINT"10)  CHRISTMAS IS COMING"
  45. 492  LOCATE 17,21:PRINT"11)  RETURN TO DOS"
  46. 500  LOCATE 20,26:INPUT"SELECT BY NUMBER: ",A$
  47. 510  IF A$ = "1" THEN GOTO 1000
  48. 520  IF A$ = "2" THEN GOTO 2000
  49. 530  IF A$ = "3" THEN GOTO 3000
  50. 540  IF A$ = "4" THEN GOTO 4000
  51. 550  IF A$ = "5" THEN GOTO 5000
  52. 560  IF A$ = "6" THEN GOTO 6000
  53. 570  IF A$ = "7" THEN GOTO 7000
  54. 580  IF A$ = "8" THEN GOTO 8000
  55. 590  IF A$ = "9" THEN GOTO 9000
  56. 600  IF A$ = "10" THEN GOTO 10000
  57. 602  IF A$="11" THEN SYSTEM
  58. 610  CLS
  59. 620  LOCATE 10,20
  60. 630  COLOR 0,7
  61. 640  PRINT"YOU HAVE SELECTED AN OPTION THAT DOES NOT APPEAR ON THE MENU"
  62. 650  FOR X= 1 TO 3000:NEXT
  63. 660  COLOR 7,0
  64. 670  GOTO 295
  65. 1000  PLAY"MF T125 O2C8C8C4F8F8F4E8F8G8A8B-8G8A4.
  66. 1010  PLAY"MF B-8O3C4D8O2B-8A8F8G4F2."
  67. 1020  FOR X=1 TO 4
  68. 1030  PLAY"MF T125 O2C8C8C4F8F8F4E8F8G8A8B-8G8A4.
  69. 1040  GOSUB 1060
  70. 1050  NEXT
  71. 1060  FOR A = 1 TO X
  72. 1070  IF X=4 THEN 1120
  73. 1080  PLAY"MF O3C4O2G8A8B-4"
  74. 1090  NEXT
  75. 1100  PLAY"MF A8B-8O3C4D8O2B-8A8F8G4F2."
  76. 1110  RETURN
  77. 1120  PLAY"MF O3C2D2O2B..O3C1"
  78. 1130  PLAY"MF C8O2B-8A8G8F4B-4D4F4G8F8E8D8C4A8B-8O3C4D8O2B-8A8F8G4F2."
  79. 1140  FOR X=1 TO 7
  80. 1150  PLAY"MFO2C8C8C8C8F8F8F4E8F8G8A8B-8G8A2"
  81. 1160  FOR A = 1 TO X
  82. 1170  PLAY"MF O3C8C8O2G8A8B-8G8"
  83. 1180  NEXT
  84. 1190  PLAY"MF O3C2D2O2B..O3C1"
  85. 1200  PLAY"MF C8O2B-8A8G8F4B-4D4F4G8F8E8D8C4A8B-8O3C4D8O2B-8A8F8G4F2."
  86. 1210  NEXT
  87. 1220  PLAY"MF T75P4O2A8B-8O3C4D8O2B-8A8F8G4F2."
  88. 1230  GOTO 295
  89. 2000  PLAY"MF O3D4C#8.O2B16A4.
  90. 2010  PLAY"G8F#4E4D4.
  91. 2020  PLAY"A8B4.B8O3C#4.C#8D4
  92. 2030  PLAY"D8D8C#8O2B8A8A8.G16F#8O3D8D8C#8O2B8A8A8.G16F#8
  93. 2040  PLAY" F#8F#8F#8F#8F#16G16A4.
  94. 2050  PLAY"G16F#16E8E8E8E16F#16G4."
  95. 2060  PLAY" F#16E16D8O3D4O2B8A8.G16F#8G8F#4E4D2"
  96. 2990  GOTO 295
  97. 3000  PLAY"O2B4P64B4P64B4A#4B4O3D4C4O2E4A4G4F#8G8A4D4"
  98. 3010  PLAY"B2.P64B4P64B4P64B4O3E4D4P64D4C4O2E4A4G4F#8"
  99. 3020  PLAY"G8B4A4G2.B4P64B4P64B4A4G4F#2P64F#4P64F#4E4"
  100. 3030  PLAY"F#4G4A4B2.P64B4P64B4P64B4A#4B4O3D4C4O2E4O3"
  101. 3040  PLAY"E4D4O2G4B4.A8G2."
  102. 3990  GOTO 295
  103. 4000  PLAY"ML T70O2F8.G16F8D4.F8.G16F8D4.O3C4P64C8"
  104. 4010  PLAY"O2A4.B-4P64B-8F4.G4P64G8B-8.A16G8F8.G16F8"
  105. 4020  PLAY"D4.G4P64G8B-8.A16G8F8.G16F8D4.O3C4P64C8E-8."
  106. 4030  PLAY"C16O2A8B-4.O3D4.O2B-8F8D8F8.E-16C8O1B-2."
  107. 4990  GOTO 295
  108. 5000  PLAY"ML T150G4P64G4D4G8A8B4O3C8O2B8A4G4P64G4P64"
  109. 5010  PLAY"G4D4G8A8B8O3C#8D4C#4D4P64D4C4O2B4O3E4.D8C4"
  110. 5020  PLAY"O2B4A4P64A4B4.O3C8D4O2A4B4A4G2"
  111. 5990  GOTO 295
  112. 6000  PLAY"ML O2G8.P8G2D4G4A2D2B4A4B4O3C4O2B2A4G8.P16G2F#4E4F#4"
  113. 6010  PLAY"G4A4B4F#2E4.D16.P32D2.P4O3D2C4O2B4O3C2O2B2A4B4G4"
  114. 6020  PLAY"A4F#4.E8D4G8.P16G4F#4G4A4G2D4B8.P16B4A4B4O3C4O2B2"
  115. 6030  PLAY"A4B4O3C4O2B4A4G4F#2G4O3C4O2B2A4.G16.P32G2."
  116. 6990  GOTO 295
  117. 7000  PLAY"MS O2C4F8.F16F8.G8A8.A16A4.A8G8A8B-4E4G4F4P8"
  118. 7010  PLAY"O3C8C8O2A8O3D4.C8C8O2B-8B-4.B-8B-8G8O3C4.O2B-8"
  119. 7020  PLAY"B-8A8A4C4F8.F16F4.G8A8.A16A4.A8G8A8B-4E4G4F4"
  120. 7990  GOTO 295
  121. 8000  PLAY"MF T100O2B4A8G4E8F#8G8F#8E4P8B4A8G4E8F#8"
  122. 8010  PLAY "G8F#8E4P8G8.P16G8A8.P16A8B8.P16B8O3D8C8O2B8A8B8A8G4"
  123. 8020  PLAY"F#8E4P8F#4A2.G8.P16G8P32G4D8G4E8G4P8G8.P16G8P32G4D8G4E8G4P8G8.P16G8"
  124. 8030  PLAY"A4B8O3C4O2B8A4B8G8.P16G8P32G4D8G4E8G4."
  125. 8990  GOTO 295
  126. 9000  READ A$
  127. 9010  IF A$ = "END" THEN 9990
  128. 9020  PLAY "XA$;"
  129. 9030  GOTO 9000
  130. 9040  DATA E,E,E,P8,E,E,E,P8,E,G,C,D,E2,F,F,F3,F8,F,E,E8,G,G,F,D,C2,END
  131. 9990  GOTO 295
  132. 10000  FOR X=1 TO 2
  133. 10010  PLAY"MFT175O3C2O2G4.G8O3C4C2C4C4C4O2B4A4G1O3C4.O2C8C4D4"
  134. 10020  PLAY"E4C4E4G4A2G4F4E1E4.F8E4D4C4O3C4O2G4E4F2G4O1B4O2C1"
  135. 10030  NEXT
  136. 10990  GOTO 295
  137.